package PA::config;

use strict;
use warnings;
use lib '/home/homer/ju/jussimik/.laka/pokeralyzer/';

sub get_settings {
	my %config;
	my $config = '/home/homer/ju/jussimik/.laka/pokeralyzer/config/settings';

	unless(-r $config) {
		die("Couldn't read config, database NOT initalized\n");
	}
	open CONFIG, '<', $config or die $!;
	while(<CONFIG>) {
		next if (($_ eq "\n") or /^\;/);
		chomp;
		my($setting, $value) = split(/=/, $_);
		$config{$setting} = $value;
	}
	return %config;
}

1;
